home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / fapx / fapxview.plp < prev   
Text File  |  1991-10-18  |  6KB  |  274 lines
  1. %ViewLZH{
  2.     [lzhfile,memono]
  3.     dispoff({Yes});
  4.     command(ARCHIVER|{ }|lzhfile|{>}|TEMP2|{_lzhdir.tmp});
  5.     dispoff({No});
  6.     %lineno @noline(@read(TEMP2|{_lzhdir.tmp}));
  7.     case(@mcheck==0,{Yes},{mopen(memono)});
  8.     mclose(2);
  9.     mclear(memono);
  10.     madd(memono,@read(TEMP2|{_lzhdir.tmp},6,lineno-8));
  11.     mopen(memono,0,21,639,459,{r});
  12.     loop    ({
  13.         footnote({終了},{b});
  14.         waitx(60);
  15.         case(@xtype,
  16.             memono,
  17.             {
  18.             var lzhfile1 [12];
  19.             case(@getchar(@xline(0),12,3)<>{   },
  20.                 {Yes},
  21.                 {lzhfile1:=@head(@getchar(@xline(0),3,8),{ })|{.}|
  22.                             @head(@getchar(@xline(0),12,3),{ })},
  23.                 {No},
  24.                 {lzhfile1:=@head(@getchar(@xline(0),1,8),{ })}
  25.                 );
  26.             setcdir(TEMP);
  27.             dispoff({Yes});
  28.             command({del }|lzhfile1);
  29.             command(ARCHIVER|{ E }|lzhfile|{ }|lzhfile1);
  30.             case(@mcheck==0,{Yes},{mopen(memono)});
  31.             mclose(2);
  32.             mclear(memono+1);
  33.             mread(lzhfile1,memono+1);
  34.             mopen(memono+1,0,21,639,459,{w});
  35.             loop({
  36.                 footnote({終了削除更新},{b});
  37.                 waitx(999);
  38.                 case(@xtype,
  39.                     101,
  40.                     {
  41.                     case(@mcheck==0,{Yes},{mopen(memono+1)});
  42.                     mclose(2);
  43.                     im({No});
  44.                     },
  45.                     201,
  46.                     {
  47.                     case(@mcheck==0,{Yes},{mopen(memono+1)});
  48.                     mclose(2);
  49.                     im({No});
  50.                     },
  51.                     102,delLZH,
  52.                     202,delLZH,
  53.                     103,updLZH,
  54.                     203,updLZH,
  55.                     ,{im({Yes})}
  56.                     );
  57.                 });
  58.             footnote({});
  59.             setcdir(TEMP);
  60.             dispoff({Yes});
  61.             command({del }|lzhfile1);
  62.             mopen(memono,0,21,639,459,{r});
  63.             im({Yes});
  64.             },
  65.             101,{im({No})},
  66.             201,{im({No})},
  67.             ,{im({Yes})}
  68.             );
  69.         });
  70.     case(@mcheck==0,{Yes},{mopen(memono)});
  71.     mclose(2);
  72.     };
  73.  
  74. %ViewLOG{
  75.     [logdir,memono]
  76.     case(@mcheck!=0,{Yes},{loop({mclose(2);im(@mcheck!=0)})}); /*CloseAllMemo*/
  77.     dispoff({Yes});
  78.     command({dir }|logdir|{>}|TEMP2|{_mopdir.tmp});
  79.     mclear(memono);
  80.     %lineno @noline(@read(TEMP2|{_mopdir.tmp}));
  81.     madd(memono,@read(TEMP2|{_mopdir.tmp},7,lineno-9));
  82.     mopen(memono,0,21,639,459,{r});
  83.     loop({
  84.         footnote({終了},{b});
  85.         waitx(60);
  86.         case(@xtype,
  87.             memono,
  88.             {
  89.             case(@body(@xline(0),{<},{>})={DIR},
  90.                 {Yes},
  91.                 {
  92.                 ViewLOG(logdir|{\}|@head(@getchar(@xline(0),1,8),{ }),
  93.                             memono+1);
  94.                 mopen(memono,0,21,639,459,{r});
  95.                 },
  96.                 {No},
  97.                 {
  98.                 case(@getchar(@xline(0),10,3)={LZH},
  99.                     {Yes},
  100.                     {
  101.                     ViewLZH(logdir|{\}|@head(@getchar(@xline(0),1,8),{ }),
  102.                                 memono+1);
  103.                     mopen(memono,0,21,639,459,{r});
  104.                     },
  105.                     {No},
  106.                     {
  107.                     var file [64];
  108.                     case(@getchar(@xline(0),10,3)<>{   },
  109.                         {Yes},
  110.                         {file:=logdir|{\}|
  111.                                 @head(@getchar(@xline(0),1,8),{ })|{.}|
  112.                                     @head(@getchar(@xline(0),10,3),{ })},
  113.                         {No},
  114.                         {file:=logdir|{\}|@head(@getchar(@xline(0),1,8),{ })}
  115.                         );
  116.                     case(@mcheck==0,{Yes},{mopen(memono)});
  117.                     mclose(2);
  118.                     mclear(memono+1);
  119.                     mread(file,memono+1);
  120.                     mopen(memono+1,0,21,639,459,{w});
  121.                     loop({
  122.                         footnote({終了削除更新},{b});
  123.                         waitx();
  124.                         case(@xtype,
  125.                             101,
  126.                             {
  127.                             case(@mcheck==0,{Yes},{mopen(memono+1)});
  128.                             mclose(2);
  129.                             mopen(memono,0,21,639,459,{r});
  130.                             footnote({});
  131.                             im({No});
  132.                             },
  133.                             201,
  134.                             {
  135.                             case(@mcheck==0,{Yes},{mopen(memono+1)});
  136.                             mclose(2);
  137.                             mopen(memono,0,21,639,459,{r});
  138.                             footnote({});
  139.                             im({No});
  140.                             },
  141.                             102,delLOG,
  142.                             202,delLOG,
  143.                             103,updLOG,
  144.                             203,updLOG,
  145.                             ,{im({Yes})}
  146.                             );
  147.                         });
  148.                     }
  149.                     );
  150.                 }
  151.                 );
  152.             im({Yes});
  153.             },
  154.             101,{im({No})},
  155.             201,{im({No})},
  156.             ,{im({Yes})}
  157.             );
  158.         });
  159.     case(@mcheck==0,{Yes},{mopen(memono)});
  160.     mclose(2);
  161.     setcdir(CDIR);
  162.     };
  163.  
  164. /* 非圧縮ログファイルの削除処理 */
  165. %delLOG{
  166.     footnote({ログファイルを削除します});
  167.     SNDMSG({kaknin_f.snd});
  168.     select({現在表示しているログファイルを削除します},
  169.         Wtime4,{im({Yes})},
  170.         {  削除する  },
  171.         {
  172.         case(@mcheck==0,{Yes},{mopen(memono+1)});
  173.         mclose(2);
  174.         dispoff({Yes});
  175.         command({del }|file);
  176.         command({dir }|logdir|{>}|TEMP2|{_mopdir.tmp});
  177.         dispoff({No});
  178.         mclear(memono);
  179.         %lineno @noline(@read(TEMP2|{_mopdir.tmp}));
  180.         madd(memono,@read(TEMP2|{_mopdir.tmp},7,lineno-9));
  181.         mopen(memono,0,21,639,459,{r});
  182.         im({No});
  183.         },
  184.         { 削除しない },{im({Yes})}
  185.         );
  186.     };
  187.  
  188. /* 非圧縮ログファイルの削除処理 */
  189. %updLOG{
  190.     footnote({ログファイルを削除します});
  191.     SNDMSG({kaknin_f.snd});
  192.     select({現在表示しているログファイルを更新します},
  193.         Wtime4,{im({Yes})},
  194.         {  更新する  },
  195.         {
  196.         case(@mcheck==0,{Yes},{mopen(memono+1)});
  197.         mclose(2);
  198.         dispoff({Yes});
  199.         command({del }|file);
  200.         mwrite(file,memono+1);
  201.         command({dir }|logdir|{>}|TEMP2|{_mopdir.tmp});
  202.         dispoff({No});
  203.         mclear(memono);
  204.         %lineno @noline(@read(TEMP2|{_mopdir.tmp}));
  205.         madd(memono,@read(TEMP2|{_mopdir.tmp},7,lineno-9));
  206.         mopen(memono,0,21,639,459,{r});
  207.         im({No});
  208.         },
  209.         { 更新しない },{im({Yes})}
  210.         );
  211.     };
  212.  
  213. /* 圧縮モードのログファイルを削除する */
  214. %delLZH{
  215.     footnote({ログファイルを削除します});
  216.     SNDMSG({kaknin_f.snd});
  217.     select({現在表示しているログファイルを削除します},
  218.         Wtime4,{im({Yes})},
  219.         {  削除する  },
  220.         {
  221.         case(@mcheck==0,{Yes},{mopen(memono+1)});
  222.         mclose(2);
  223.         dispoff({Yes});
  224.         command(ARCHIVER|{ d }|lzhfile|{ }|lzhfile1);
  225.         command(ARCHIVER|{ }|lzhfile|{>}|TEMP2|{_lzhdir.tmp});
  226.         dispoff({No});
  227.         %lineno @noline(@read(TEMP2|{_lzhdir.tmp}));
  228.         case(@mcheck==0,{Yes},{mopen(memono)});
  229.         mclose(2);
  230.         mclear(memono);
  231.         madd(memono,@read(TEMP2|{_lzhdir.tmp},6,lineno-8));
  232.         im({No});
  233.         },
  234.         { 削除しない },{im({Yes})}
  235.         );
  236.     };
  237.  
  238. /* 圧縮モードのログファイルを更新する */
  239. %updLZH{
  240.     footnote({ログファイルを更新します});
  241.     SNDMSG({kaknin_f.snd});
  242.     select({現在表示しているログファイルを更新します},
  243.         Wtime4,{im({Yes})},
  244.         {  更新する  },
  245.         {
  246.         case(@mcheck==0,{Yes},{mopen(memono+1)});
  247.         mclose(2);
  248.         dispoff({Yes});
  249.         command({del }|lzhfile1);
  250.         mwrite(lzhfile1,memono+1);
  251.         command(ARCHIVER|{ u }|lzhfile|{ }|lzhfile1);
  252.         command(ARCHIVER|{ }|lzhfile|{>}|TEMP2|{_lzhdir.tmp});
  253.         dispoff({No});
  254.         %lineno @noline(@read(TEMP2|{_lzhdir.tmp}));
  255.         case(@mcheck==0,{Yes},{mopen(memono)});
  256.         mclose(2);
  257.         mclear(memono);
  258.         madd(memono,@read(TEMP2|{_lzhdir.tmp},6,lineno-8));
  259.         im({No});
  260.         },
  261.         { 更新しない },{im({Yes})}
  262.         );
  263.     };
  264.  
  265. /* 受信ログ参照処理メイン */
  266. footnote({受信ログを参照します});
  267. SNDMSG    ({kaknin_f.snd});
  268. select    ({メモの内容が消去されます  よろしいですか？},
  269.     Wtime4,,
  270.     { は　い },
  271.     {ViewLOG(LOG,1);},
  272.     { いいえ },
  273.     );
  274.